CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/Battle of Britain 1 •••••/Battle of Britain 1 еееее/card_5101.txt

Text File | 1990-08-26 | 32KB | 1,583 lines

-- card: 5101 from stack: in
-- bmap block id: 6739
-- flags: 4000
-- background id: 2789
-- name: A
----- HyperTalk script -----
on openCard

  global justVisiting,BBDATE,reset,bbtime,landtime
  put 4 into standby
  put 7 into ordered
  put 8 into landed

  repeat
    if hilite of button ordered is true then
      set hilite of button ordered to false
      set hilite of button landed to true
    end if
    if hilite of button landed is true then
      IF LANDTIME <BBTIME THEN
        SET HILITE OF BUTTON LANDED TO FALSE          --new
        set hilite of button standby to true
      end if
    END IF
    add 7 to standby
    add 7 to ordered
    add 7 to landed
    if landed >30 then
      exit repeat
    end if
  end repeat

  if justVisiting is empty then
    exit openCard
  end if
  put 2 into released
  put 3 into avail
  put 5 into patrol
  HIDE CARD FIELD "SHUTDOWN"
  repeat 4 TIMES
    if hilite of button patrol is true then
      send "go" to button patrol
    else
      if hilite of button released is true then
        send "go" to button released
      else
        send "go" to button avail
      end if
    end if
    add 7 to released
    add 7 to avail
    add 7 to patrol
  end repeat

  if bbDate contains "AUG 18" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 372,0,512,342

  if reset =1 then
    REPEAT WITH I =1 TO THE NUMBER OF BUTTONS
      SET  HILITE OF BUTTON I TO FALSE
    END REPEAT
    SET HILITE OF BUTTON 4 TO TRUE
    SET HILITE OF BUTTON 11 TO TRUE
    SET HILITE OF BUTTON 18 TO TRUE
    SET HILITE OF BUTTON 25 TO TRUE
    SET RECT OF CARD FIELD "HIDESQUADS" TO 308,0,512,342
    HIDE CARD FIELD "SHUTDOWN"
    repeat with i =166 to 169
      put empty into card field id i
    end repeat
  end if
end openCard
ON SHUTDOWN
  SHOW CARD FIELD "SHUTDOWN" OF CARD "A"             --NEW
END SHUTDOWN
on closecard
  hide card field "outofrange"
end closecard






-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=9 top=27 right=131 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  go to card "map"
end mouseUp



-- part 121 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=44 right=66 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 28 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 28 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 3 into avail                           --CHANGES
  put 28 into releaseDate
  RELEASE
END GO

















-- part 122 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=65 right=85 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go
  put 4 into standby                            --CHANGE
  if hilite of ME is true then
    set the hilite of  ME to false
    set the hilite of button standby to true
  end if
end go





-- part 123 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=116 top=84 right=108 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 124 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=107 right=132 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 2 into released             -- CHANGES
  put 3 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 4 into standby
  put "112,295" into coord
  put 13 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true
      -- set icon of button id idplane of card "Map" to 6071
      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 4 into standby
  put 13 into idplane
  put "112,295" into coord

  set hilite of me to false
  set hilite of button standby to true

  HIDE button id idplane of card "map"

end go









-- part 125 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=144 right=172 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQD43A
----- HyperTalk script -----
on mouseUp

  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 3 into avail
  put 4 into standby
  put 5 into patrol
  put 6 into detail                                         --CHANGES
  put 13 into idplane
  put "a" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane,sorties
  put 3 into avail
  put 4 into standby
  put 5 into patrol
  put 6 into detail                                         --CHANGES
  put 13 into idplane
  put 166 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 2 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 1.5 to force   --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  --global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 2 into released
  put 3 into avail
  put 28 into releaseDate                                 --CHANGES
  put "A" into base
  put "112,295" into coord
  put 13 into idplane
  put 166 into sorties
  resultsa
end results









-- part 126 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=171 right=201 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "112,295" into coord
  put 5 into patrol
  put 6 into detail                                          --CHANGES
  put 13 into idplane
  land
end mouseUp





-- part 127 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=116 top=200 right=229 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 128 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=44 right=66 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 60 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 60 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 10 into avail                           --CHANGES
  put 60 into releaseDate
  RELEASE
END GO













-- part 129 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=65 right=85 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseup

on go

  put 11 into standby
  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if
end go





-- part 130 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=180 top=84 right=108 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 131 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=107 right=132 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 9 into released             -- CHANGES
  put 10 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 11 into standby
  put "142,280" into coord
  put 39 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true
      --set icon of button id idplane of card "Map" to 6071
      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 11 into standby
  put 39 into idplane
  put "142,280" into coord

  set hilite of me to false
  set hilite of button standby to true
  hide button id idplane of card "map"
end go








-- part 132 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=144 right=172 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ145A
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 10 into avail
  put 11 into standby
  put 12 into patrol
  put 13 into detail                                         --CHANGES
  put 39 into idplane
  put "a" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 10 into avail
  put 11 into standby
  put 12 into patrol
  put 13 into detail                                         --CHANGES
  put 39 into idplane
  put 167 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 2 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 1.5 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 9 into released
  put 10 into avail
  put 60 into releaseDate                                 --CHANGES
  put "A" into base
  put "142,280" into coord
  put 39 into idplane
  put 167 into sorties
  resultsa
end results

















-- part 133 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=171 right=201 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "142,280" into coord
  put 12 into patrol
  put 13 into detail                                          --CHANGES
  put 39 into idplane
  land
end mouseUp





-- part 134 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=200 right=229 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 135 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=44 right=66 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 61 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 61 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 17 into avail                           --CHANGES
  put 61 into releaseDate
  RELEASE
END GO




-- part 136 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=65 right=85 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 18 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go





-- part 137 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=244 top=84 right=108 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 138 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=107 right=132 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 16 into released             -- CHANGES
  put 17 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 18 into standby
  put "112,280" into coord
  put 15 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 18 into standby
  put 15 into idplane
  put "112,280" into coord

  set hilite of me to false
  set hilite of button standby to true
  hide button id idplane of card "map"
end go












-- part 60 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=170 top=32 right=88 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate2
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate2"
end mouseUp



-- part 139 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=144 right=172 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ601A
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 17 into avail
  put 18 into standby
  put 19 into patrol
  put 20 into detail                                         --CHANGES
  put 15 into idplane
  put "a" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 17 into avail
  put 18 into standby
  put 19 into patrol
  put 20 into detail                                         --CHANGES
  put 15 into idplane
  put 168 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 2 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 1.5 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 16 into released
  put 17 into avail
  put 61 into releaseDate                                 --CHANGES
  put "A" into base
  put "112,280" into coord
  put 15 into idplane
  put 168 into sorties
  resultsa
end results














-- part 140 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=171 right=201 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "112,280" into coord
  put 19 into patrol
  put 20 into detail                                          --CHANGES
  put 15 into idplane
  land
end mouseUp




-- part 141 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=244 top=200 right=229 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp




-- part 142 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=44 right=66 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 62 into releaseDate                   --CHANGE
  if hilite of ME is true then
    show card field id releaseDate at the mouseh, the mousev
  else
    beep
    exit mouseDown
  end if
end mouseDown

on mouseUp
  put 62 into releaseDate                    --CHANGE
  hide card field id releaseDate
end mouseUp

on go
  GLOBAL AVAIL,RELEASEDATE
  put 24 into avail                           --CHANGES
  put 62 into releaseDate
  RELEASE
END GO
















-- part 144 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=65 right=85 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
  if hilite of me is false then exit mouseUp
  SHOW CARD FIELD "PUB" at the mouseh, the mousev
end mouseUp

on go

  put 25 into standby

  if hilite of me is true then
    set the hilite of me to false
    set the hilite of button standby to true
  end if


end go





-- part 145 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=308 top=84 right=108 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  beep
end mouseup




-- part 146 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=107 right=132 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseDown
  put 23 into released             -- CHANGES
  put 24 into avail

  if hilite of button released is true or hilite of button avail is true then
    beep
    show card field "nono" at the mouseh, the mousev
  end if
end mouseDown

on mouseUp
  global warning
  put 25 into standby
  put "142,295" into coord
  put 38 into idplane

  if hilite of button standby is true then
    if warning is not "L" and warning is not "N" then
      set hilite of button standby to false
      set hilite of ME to true

      show button id idplane of card "map" at coord
    else
      beep
      show card field "outOfRange" at the mouseh, the mousev
    end if
  end if
  hide card field "nono"
end mouseUp

on go
  put 25 into standby
  put 38 into idplane
  put "142,295" into coord

  set hilite of me to false
  set hilite of button standby to true
  hide button id idplane of card "map"
end go









-- part 147 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=144 right=172 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ602A
----- HyperTalk script -----
on mouseUp
  --global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute,warning
  if warning is empty then
    beep
    show card field "whatraid" at the mouseh, the mousev
    exit mouseUp
  end if

  put 24 into avail
  put 25 into standby
  put 26 into patrol
  put 27 into detail                                         --CHANGES
  put 38 into idplane
  put "a" into enroute
  detail
end mouseUp

on go
  global numSquads,force,avail,standby,patrol,detail,idplane
  put 24 into avail
  put 25 into standby
  put 26 into patrol
  put 27 into detail                                         --CHANGES
  put 38 into idplane
  put 169 into sorties
  if hilite of button patrol is true or hilite of button standby is true then
    add 3 to force                                        --CHANGES
    set hilite of button patrol to false
    set hilite of button standby to false
  end if
  if hilite of button avail is true then add 2 to force     --CHANGES
  put the length of card field id sorties into exp
  divide exp by 20
  add exp to force
  put "/" after card field id sorties
  goa
end go


on results
  global damage,force,bforce,fforce,done
  global released,avail,releaseDate,base,coord,idplane,sorties
  put 23 into released
  put 24 into avail
  put 62 into releaseDate                                 --CHANGES
  put "A" into base
  put "142,295" into coord
  put 38 into idplane
  put 169 into sorties
  resultsa
end results













-- part 148 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=171 right=201 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global coord,patrol,detail,idplane
  put "142,295" into coord
  put 26 into patrol
  put 27 into detail                                          --CHANGES
  put 38 into idplane
  land
end mouseUp





-- part 149 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=308 top=200 right=229 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 63 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=360 top=31 right=85 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate5
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate5"
end mouseUp



-- part 109 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=420 top=29 right=84 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate6
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate6"
end mouseUp



-- part 167 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=187 top=254 right=307 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 168 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=251 top=254 right=308 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 169 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=315 top=254 right=307 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 31 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=308 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hideSquads


-- part 16 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=90 top=81 right=150 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: nono
----- HyperTalk script -----
on mouseUp
  hide card field id 16
end mouseUp



-- part 166 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=254 right=307 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: sorties


-- part 28 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=105 top=33 right=89 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate"
end mouseUp



-- part 173 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=108 top=68 right=92 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: PUB
----- HyperTalk script -----
ON MOUSEUP
  HIDE card field "pub"
END MOUSEUP




-- part 62 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=283 top=32 right=86 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate4
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate4"
end mouseUp



-- part 174 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=295 top=137 right=179 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: whatRaid
----- HyperTalk script -----
on mouseUp
  hide card field "whatRaid"
end mouseUp


-- part 61 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=239 top=31 right=87 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: releaseDate3
----- HyperTalk script -----
on mouseUp
  hide card field "releaseDate3"
end mouseUp



-- part 165 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=182 top=145 right=170 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: outOfRange
----- HyperTalk script -----
on no
  beep
  show card field "outOfRange" at the mouseh, the mousev
end no

on mouseUp
  hide card field "outOfRange"
end mouseUp


-- part 175 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=102 top=8 right=110 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 20
-- style flags: 8192
-- line height: 22
-- part name: shutdown


-- part contents for card part 16
----- text -----
You cannot order a RELEASED or AVAILABLE squadron on patrol.

-- part contents for card part 60
----- text -----
AVAILABLE
IN 4 DAYS
PATCHING UP PLANES

-- part contents for card part 61
----- text -----
AVAILABLE
IN 0 DAYS
PATCHING UP PLANES

-- part contents for card part 62
----- text -----
AVAILABLE
IN 0 DAYS
PATCHING UP PLANES


-- part contents for card part 63
----- text -----
AVAILABLE
IN 1 DAY
AWAITING AIRCRAFT


-- part contents for card part 109
----- text -----
AVAILABLE
IN 4 DAYS



-- part contents for card part 165
----- text -----
Too Far.

-- part contents for card part 28
----- text -----
AVAILABLE
IN 0 DAYS
PATCHING UP PLANES


-- part contents for card part 173
----- text -----
At the pub.

-- part contents for card part 174
----- text -----

What raid?

-- part contents for card part 175
----- text -----
DUE TO  BOMB DAMAGE
NORMAL OPERATIONS AT THIS AERODROME ARE TEMPORARILY DISRUPTED.